home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
FLOPALL.SC
< prev
next >
Wrap
Text File
|
1992-03-15
|
2KB
|
71 lines
;-------------------------------------------------FLOPALL.SC
;------------SET UP LOOP FOR EDITING.
CLEAR
STILLATIT = TRUE
WHILE STILLATIT
CLEARALL
CLEAR
STYLE ATTRIBUTE 30
@ 12,10
?? "ENTER DISK # TO LOOKUP "
@ 14,10
?? "OR JUST PRESS ENTER TO EXIT: "
ACCEPT "A10" TO LOOKUP
LOOKUP=UPPER(LOOKUP)
;-------------IF NO ENTRY EXIT.
IF ISBLANK(LOOKUP) THEN
@ 24,10 CLEAR EOL
?? "RETURNING TO MAIN MENU..."
QUITLOOP
ENDIF
@ 24,1
?? "SETTING POINTER TO " + LOOKUP
;--------------PERFORM A FIND QUERY.
MENU {ASK} {FLOPPIES}
[DISK #] = LOOKUP
[#] = "FIND"
DO_IT!
;----------NO MATCH MESSAGE.
IF (NRECORDS("ANSWER") = 0) THEN
BEEP
@ 24,1 CLEAR EOL
?? LOOKUP + " NOT IN CURRENT LIST "
SLEEP 5000
LOOP
ENDIF
;-----------ALLOW DATE CHANGES ON FORM F.
EDITKEY
MENU {IMAGE}{PICKFORM}{F}
X=TRUE
WHILE X
WAIT TABLE
PROMPT "PRESS F2 WHEN DONE WITH THIS ENTRY , F5 TO SORT TABLE",
"PRESS F7 FOR TABLE VIEW, PRESS F8 TO READ A NEW DISK"
UNTIL "F2","F5","F7","F8"
SWITCH
CASE RETVAL = "F2" :
X = FALSE
DO_IT!
CASE RETVAL = "F5" :
DO_IT!
PLAY "FLOPSORT"
EDITKEY
CASE RETVAL = "F7" :
FORMKEY
CASE RETVAL = "F8" :
DO_IT!
PLAY "READFLOP"
ENDSWITCH
ENDWHILE
ENDWHILE
CLEAR
RETURN